home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Toolbox
/
Visual Basic Toolbox (P.I.E.)(1996).ISO
/
buttons
/
vp3dbox
/
tools.frm
< prev
next >
Wrap
Text File
|
1995-01-02
|
26KB
|
855 lines
VERSION 2.00
Begin Form Tools
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
Caption = "(c) Vitaliy Pozharov 1994 Screen Name VitaliyP"
ClientHeight = 5085
ClientLeft = 1830
ClientTop = 1185
ClientWidth = 6210
ClipControls = 0 'False
ControlBox = 0 'False
Height = 5490
Left = 1770
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5085
ScaleWidth = 6210
Top = 840
Width = 6330
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 885
Index = 29
Left = 4005
Picture = TOOLS.FRX:0000
ScaleHeight = 885
ScaleWidth = 960
TabIndex = 10
Top = 960
Width = 960
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 795
Index = 28
Left = 5220
Picture = TOOLS.FRX:079A
ScaleHeight = 795
ScaleWidth = 900
TabIndex = 23
Top = 3225
Width = 900
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 885
Index = 27
Left = 3000
Picture = TOOLS.FRX:0EB4
ScaleHeight = 885
ScaleWidth = 885
TabIndex = 9
Top = 960
Width = 885
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 885
Index = 26
Left = 2040
Picture = TOOLS.FRX:168E
ScaleHeight = 885
ScaleWidth = 885
TabIndex = 8
Top = 960
Width = 885
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 885
Index = 25
Left = 1080
Picture = TOOLS.FRX:1E68
ScaleHeight = 885
ScaleWidth = 885
TabIndex = 7
Top = 960
Width = 885
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 795
Index = 24
Left = 4200
Picture = TOOLS.FRX:2642
ScaleHeight = 795
ScaleWidth = 885
TabIndex = 22
Top = 3240
Width = 885
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 795
Index = 23
Left = 3210
Picture = TOOLS.FRX:2D5C
ScaleHeight = 795
ScaleWidth = 885
TabIndex = 21
Top = 3240
Width = 885
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 885
Index = 22
Left = 105
Picture = TOOLS.FRX:3476
ScaleHeight = 885
ScaleWidth = 885
TabIndex = 6
Top = 960
Width = 885
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 795
Index = 21
Left = 2205
Picture = TOOLS.FRX:3C50
ScaleHeight = 795
ScaleWidth = 885
TabIndex = 20
Top = 3240
Width = 885
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 795
Index = 20
Left = 1200
Picture = TOOLS.FRX:436A
ScaleHeight = 795
ScaleWidth = 885
TabIndex = 19
Top = 3240
Width = 885
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 795
Index = 19
Left = 120
Picture = TOOLS.FRX:4A84
ScaleHeight = 795
ScaleWidth = 900
TabIndex = 18
Top = 3225
Width = 900
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 795
Index = 18
Left = 5190
Picture = TOOLS.FRX:519E
ScaleHeight = 795
ScaleWidth = 885
TabIndex = 17
Top = 2175
Width = 885
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 795
Index = 17
Left = 4185
Picture = TOOLS.FRX:58B8
ScaleHeight = 795
ScaleWidth = 885
TabIndex = 16
Top = 2175
Width = 885
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 795
Index = 16
Left = 3165
Picture = TOOLS.FRX:5FD2
ScaleHeight = 795
ScaleWidth = 885
TabIndex = 15
Top = 2175
Width = 885
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 795
Index = 15
Left = 2175
Picture = TOOLS.FRX:66EC
ScaleHeight = 795
ScaleWidth = 885
TabIndex = 14
Top = 2175
Width = 885
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 795
Index = 14
Left = 1155
Picture = TOOLS.FRX:6E06
ScaleHeight = 795
ScaleWidth = 885
TabIndex = 13
Top = 2175
Width = 885
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 420
Index = 13
Left = 3120
Picture = TOOLS.FRX:7520
ScaleHeight = 420
ScaleWidth = 420
TabIndex = 5
Top = 240
Width = 420
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 420
Index = 12
Left = 2505
Picture = TOOLS.FRX:775A
ScaleHeight = 420
ScaleWidth = 420
TabIndex = 4
Top = 240
Width = 420
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 420
Index = 11
Left = 1920
Picture = TOOLS.FRX:7994
ScaleHeight = 420
ScaleWidth = 420
TabIndex = 3
Top = 240
Width = 420
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 420
Index = 10
Left = 1320
Picture = TOOLS.FRX:7BCE
ScaleHeight = 420
ScaleWidth = 420
TabIndex = 2
Top = 240
Width = 420
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 420
Index = 9
Left = 720
Picture = TOOLS.FRX:7E08
ScaleHeight = 420
ScaleWidth = 420
TabIndex = 1
Top = 240
Width = 420
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 420
Index = 8
Left = 135
Picture = TOOLS.FRX:8042
ScaleHeight = 420
ScaleWidth = 420
TabIndex = 0
Top = 240
Width = 420
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 795
Index = 7
Left = 105
Picture = TOOLS.FRX:827C
ScaleHeight = 795
ScaleWidth = 885
TabIndex = 12
Top = 2175
Width = 885
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 1020
Index = 6
Left = 5130
Picture = TOOLS.FRX:8996
ScaleHeight = 1020
ScaleWidth = 945
TabIndex = 11
Top = 825
Width = 945
End
Begin Timer Timer1
Enabled = 0 'False
Interval = 500
Left = 9210
Top = 6915
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 585
Index = 5
Left = 3165
Picture = TOOLS.FRX:9290
ScaleHeight = 585
ScaleWidth = 945
TabIndex = 28
Top = 4305
Width = 945
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 585
Index = 4
Left = 4170
Picture = TOOLS.FRX:97EA
ScaleHeight = 585
ScaleWidth = 945
TabIndex = 29
Top = 4305
Width = 945
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 585
Index = 3
Left = 2145
Picture = TOOLS.FRX:9D44
ScaleHeight = 585
ScaleWidth = 945
TabIndex = 26
Top = 4305
Width = 945
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 585
Index = 2
Left = 1125
Picture = TOOLS.FRX:A29E
ScaleHeight = 585
ScaleWidth = 945
TabIndex = 25
Top = 4305
Width = 945
End
Begin PictureBox Container
Height = 660
Left = 7350
ScaleHeight = 630
ScaleWidth = 1155
TabIndex = 27
Top = 6735
Visible = 0 'False
Width = 1185
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 585
Index = 1
Left = 5160
Picture = TOOLS.FRX:A7F8
ScaleHeight = 585
ScaleWidth = 945
TabIndex = 30
Top = 4305
Width = 945
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 585
Index = 0
Left = 105
Picture = TOOLS.FRX:AD52
ScaleHeight = 585
ScaleWidth = 945
TabIndex = 24
Top = 4305
Width = 945
End
Begin Image Image1
Height = 855
Index = 29
Left = 4020
Picture = TOOLS.FRX:B2AC
Top = 960
Visible = 0 'False
Width = 945
End
Begin Image Image1
Height = 795
Index = 28
Left = 5220
Picture = TOOLS.FRX:BA46
Top = 3240
Visible = 0 'False
Width = 885
End
Begin Image Image1
Height = 885
Index = 27
Left = 3000
Picture = TOOLS.FRX:C160
Top = 960
Visible = 0 'False
Width = 885
End
Begin Image Image1
Height = 885
Index = 26
Left = 2040
Picture = TOOLS.FRX:C93A
Top = 960
Visible = 0 'False
Width = 885
End
Begin Image Image1
Height = 885
Index = 25
Left = 1080
Picture = TOOLS.FRX:D114
Top = 960
Visible = 0 'False
Width = 885
End
Begin Image Image1
Height = 795
Index = 24
Left = 4200
Picture = TOOLS.FRX:D8EE
Top = 3240
Visible = 0 'False
Width = 885
End
Begin Image Image1
Height = 795
Index = 23
Left = 3210
Picture = TOOLS.FRX:E008
Top = 3240
Visible = 0 'False
Width = 885
End
Begin Image Image1
Height = 885
Index = 22
Left = 105
Picture = TOOLS.FRX:E722
Top = 960
Visible = 0 'False
Width = 885
End
Begin Image Image1
Height = 795
Index = 21
Left = 2205
Picture = TOOLS.FRX:EEFC
Top = 3240
Visible = 0 'False
Width = 885
End
Begin Image Image1
Height = 795
Index = 20
Left = 1200
Picture = TOOLS.FRX:F616
Top = 3240
Visible = 0 'False
Width = 885
End
Begin Image Image1
Height = 795
Index = 19
Left = 120
Picture = TOOLS.FRX:FD30
Top = 3225
Visible = 0 'False
Width = 900
End
Begin Image Image1
Height = 795
Index = 18
Left = 5190
Picture = TOOLS.FRX:1044A
Top = 2175
Visible = 0 'False
Width = 885
End
Begin Image Image1
Height = 795
Index = 17
Left = 4185
Picture = TOOLS.FRX:10B64
Top = 2175
Visible = 0 'False
Width = 885
End
Begin Image Image1
Height = 795
Index = 16
Left = 3165
Picture = TOOLS.FRX:1127E
Top = 2175
Visible = 0 'False
Width = 885
End
Begin Image Image1
Height = 795
Index = 15
Left = 2175
Picture = TOOLS.FRX:11998
Top = 2175
Visible = 0 'False
Width = 885
End
Begin Image Image1
Height = 795
Index = 14
Left = 1170
Picture = TOOLS.FRX:120B2
Top = 2175
Visible = 0 'False
Width = 870
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "3"
Height = 255
Index = 2
Left = 5955
TabIndex = 32
Top = 315
Width = 135
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "2"
Height = 255
Index = 1
Left = 5475
TabIndex = 33
Top = 315
Width = 135
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "1"
Height = 255
Index = 0
Left = 4980
TabIndex = 31
Top = 315
Width = 135
End
Begin Image Image2
Height = 150
Index = 2
Left = 5730
Picture = TOOLS.FRX:127CC
Top = 330
Width = 135
End
Begin Image Image2
Height = 150
Index = 1
Left = 5280
Picture = TOOLS.FRX:12896
Top = 345
Width = 135
End
Begin Image Image2
Height = 150
Index = 0
Left = 4770
Picture = TOOLS.FRX:12960
Top = 345
Width = 135
End
Begin Image Image1
Height = 420
Index = 13
Left = 3120
Picture = TOOLS.FRX:12A2A
Top = 240
Width = 420
End
Begin Image Image1
Height = 420
Index = 12
Left = 2520
Picture = TOOLS.FRX:12C64
Top = 240
Width = 405
End
Begin Image Image1
Height = 420
Index = 11
Left = 1920
Picture = TOOLS.FRX:12E9E
Top = 240
Width = 420
End
Begin Image Image1
Height = 420
Index = 10
Left = 1320
Picture = TOOLS.FRX:130D8
Top = 240
Width = 420
End
Begin Image Image1
Height = 420
Index = 9
Left = 720
Picture = TOOLS.FRX:13312
Top = 240
Width = 420
End
Begin Image Image1
Height = 420
Index = 8
Left = 135
Picture = TOOLS.FRX:1354C
Top = 240
Width = 420
End
Begin Image Image1
Height = 795
Index = 7
Left = 105
Picture = TOOLS.FRX:13786
Top = 2175
Visible = 0 'False
Width = 885
End
Begin Image Image1
Height = 1020
Index = 6
Left = 5130
Picture = TOOLS.FRX:13EA0
Top = 825
Visible = 0 'False
Width = 945
End
Begin Image Arrow
Height = 180
Left = 8670
Picture = TOOLS.FRX:1479A
Top = 7185
Width = 135
End
Begin Image Image1
Height = 585
Index = 5
Left = 3165
Picture = TOOLS.FRX:14874
Top = 4305
Visible = 0 'False
Width = 945
End
Begin Image Image1
Height = 585
Index = 4
Left = 4170
Picture = TOOLS.FRX:14DCE
Top = 4305
Visible = 0 'False
Width = 945
End
Begin Image Image1
Height = 585
Index = 3
Left = 2145
Picture = TOOLS.FRX:15328
Top = 4305
Visible = 0 'False
Width = 945
End
Begin Image Image1
Height = 585
Index = 2
Left = 1125
Picture = TOOLS.FRX:15882
Top = 4305
Visible = 0 'False
Width = 945
End
Begin Image Image1
Height = 585
Index = 1
Left = 5160
Picture = TOOLS.FRX:15DDC
Top = 4305
Visible = 0 'False
Width = 945
End
Begin Image Image1
Height = 585
Index = 0
Left = 105
Picture = TOOLS.FRX:16336
Top = 4305
Visible = 0 'False
Width = 945
End
Begin Image Image3
Height = 150
Index = 0
Left = 4770
Picture = TOOLS.FRX:16890
Top = 345
Width = 135
End
Begin Image Image3
Height = 150
Index = 1
Left = 5280
Picture = TOOLS.FRX:1695A
Top = 345
Width = 135
End
Begin Image Image3
Height = 150
Index = 2
Left = 5730
Picture = TOOLS.FRX:16A24
Top = 330
Width = 135
End
End
Option Explicit
Dim ControlNumber As Integer
Sub Form_Load ()
ControlNumber = 100
Container.Picture = Picture1(0).Picture
Picture1(0).Visible = True
End Sub
Sub Image2_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim I%
For I% = 0 To 2
If I% = Index Then
Label1(I%).ForeColor = QBColor(12)
Image2(I%).Visible = False
Image3(I%).Visible = True
Else
Label1(I%).ForeColor = QBColor(0)
Image2(I%).Visible = True
Image3(I%).Visible = False
End If
Next I%
End Sub
Sub Picture1_GotFocus (Index As Integer)
Arrow.Top = Picture1(Index).Top - Arrow.Height
Arrow.Left = Picture1(Index).Left + (Picture1(Index).Width - Arrow.Width) / 2
End Sub
Sub Picture1_KeyDown (Index As Integer, KeyCode As Integer, Shift As Integer)
If Index <> ControlNumber Then
If KeyCode = 13 Then
Container.Picture = Picture1(Index).Picture
Picture1(Index).Picture = Image1(Index).Picture
ControlNumber = Index
Timer1.Enabled = True
End If
End If
End Sub
Sub Picture1_KeyUp (Index As Integer, KeyCode As Integer, Shift As Integer)
ControlNumber = 100
If KeyCode = 13 Then
Picture1(Index).Picture = Container.Picture
Select Case Index
Case 0
'User has clicked box #1
Case 1 'Exit
End
End Select
End If
End Sub
Sub Picture1_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Container.Picture = Picture1(Index).Picture
Picture1(Index).Picture = Image1(Index).Picture
End Sub
Sub Picture1_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1(Index).Picture = Container.Picture
Select Case Index
Case 0
'User has clicked box #1
Case 1 'Exit
End
End Select
End Sub
Sub Timer1_Timer ()
If ControlNumber < 100 Then
Picture1(ControlNumber).Picture = Container.Picture
Timer1.Enabled = False
End If
End Sub